home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / editor / xes.lha / XES / S / text-mode.xrc < prev    next >
Text File  |  1995-08-14  |  659b  |  9 lines
  1. # $VER: text-mode.xrc 1.0 (14 Aug 1995)
  2. #Text Mode
  3. setmacro text-mode 0 (Mx-f settvar mode (Text) settvar cr text-return settvar ftab text-format wordwrap on settvar indcol 8 setparcol 0 blocktype character)
  4. setmacro text-format 0 (pos-line \$indcol first push pos downadd while !r (pos-line \$parcol downadd first) sety pop pos suby dec y gom repeat \$y (ifelse r join break) firstnb ifelse r (col +\$indcol) reformat)
  5. setmacro text-return 0 (if !l (split down) insline down text-format)
  6. setmacro text_tab 0 (ifelse cb (indent b -255 indent b t goto start firstnb a-[ reformat) (indent . .t firstnb))
  7. setmacro text_backtab 0 (indent . -.t firstnb)
  8. text-mode
  9.